home *** CD-ROM | disk | FTP | other *** search
/ 64'er 1988 March / 64er_Magazin_88-03_1988_Markt__Technik_de_Side_A.d64 / window listing 4 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  2KB  |  75 lines
  1. 10 wi=49152
  2. 15 ifpeek(wi)<>173orpeek(wi+1)<>9orpeek(wi+2)<>3thenload"window 64",8,8
  3. 20 syswi
  4. 100 poke53280,0:poke53281,0
  5. 110 _w1,1,38,5,0,1,0,15
  6. 120 _p13,0:print"window-demo
  7. 130 _p18,2:[153]"by
  8. 140 _p13,4:print"frank grimm
  9. 200 _w1,8,38,16,1,1,1,5
  10. 210 _p8,7:[153]"es gibt grosse windows
  11. 220 gosub10000
  12. 230 _w10,10,10,5,1,1,0,6
  13. 240 _p3,0:print"und
  14. 250 _p2,2:[153]"kleine
  15. 260 _p2,4:print"windows
  16. 270 [141]10000
  17. 280 _w3,9,15,8,1,1,0,1
  18. 290 _p2,2:[153]"windows mit
  19. 300 _p6,5:print"rand
  20. 320 _w23,9,15,8,1,0,0,1
  21. 330 _p2,2:[153]"windows ohne
  22. 340 _p6,5:print"rand
  23. 350 [141]10000
  24. 360 _w22,10,15,8,1,1,0,7
  25. 370 _p0,3:[153]"reverse windows
  26. 380 _w2,10,15,8,0,1,0,7
  27. 390 _p0,3:print"normale windows
  28. 400 [141]10000
  29. 410 _w2,8,36,10,1,128[170]6,1,14
  30. 420 _p7,5:[153]"windows mit 'schatten'
  31. 430 gosub10000
  32. 440 _w2,8,16,10,0,1,1,4
  33. 450 fort=0to15:poke646,t:print:print" hochscrollende";
  34. 455 fori=0to100:next
  35. 460 ifpeek(198)=0thennext:goto450
  36. 470 poke198,0
  37. 480 _w20,8,18,10,0,1,1,4
  38. 490 fort=0to15:poke646,t:print"[145] runterscrollende
  39. 495 [129]i[178]0[164]100:[130]
  40. 500 [139][194](198)[178]0[167][130]:[137]490
  41. 505 [151]198,0
  42. 510 _w0,7,40,13,0,0,1,3
  43. 520 _s1
  44. 530 [129]t[178]0[164]255:[153][199](t);:[130]
  45. 540 _p6,9:[153]"ausgabe  steuerzeichen";:_s0
  46. 550 [141]10000
  47. 560 _w7,8,25,10,1,1,0,1
  48. 570 _p4,1:[153]"nicht scrollende
  49. 590 fort=0to100:printtab(10)t:next
  50. 600 gosub10000
  51. 610 _w7,8,25,10,1,1,0,1
  52. 620 _p4,1:print"scrollende windows
  53. 625 _w7,11,25,7,1,0,1,1
  54. 630 [129]t[178]0[164]100:[153][163]10)t:[130]
  55. 640 [141]10000
  56. 2000 _w1,8,38,12,0,1,1,7
  57. 2010 _p0,0:[153]"was 'unter' den windows liegt
  58. 2020 _p0,2:print"wird in einen pufferspeicher gerettet.
  59. 2030 _p0,4:[153]"wenn ein window geschlossen wird
  60. 2040 _p0,6:print"erscheint das darunterliegende wieder.
  61. 2050 _p0,8:[153]"bitte eine taste druecken um ein
  62. 2060 _p0,10:print"window zu schliessen
  63. 2100 [129]t[178]0[164]15:[141]10000:_w:[130]
  64. 2200 _w1,1,38,3,1,1,0,12
  65. 2210 _p2,1:[153]"und hier das listing des programms
  66. 2220 _w0,5,40,20,1,0,1,12:gosub10000
  67. 2230 a$="g[207]2300":fort=1tolen(a$):poke630+t,asc(mid$(a$,t,1)):next
  68. 2240 poke630+t,13:poke198,t
  69. 2250 list
  70. 2300 gosub10000
  71. 9999 _c:end
  72. 10000 gosub10100
  73. 10010 wait198,1:poke198,0:_w:return
  74. 10100 _w1,20,37,3,1,128,0,2:_p9,1:print"bitte taste druecken":return
  75.